dofile("lib.lua")
dofile("jogador.lua")

-- deslocamento na tela
offset_x = 0
offset_y = 146

carrega_jogadores()

j1_t1 = ordem_time1[1]
j2_t1 = ordem_time1[2]
j3_t1 = ordem_time1[3]
j4_t1 = ordem_time1[4]

j1_t2 = ordem_time2[1]
j2_t2 = ordem_time2[2]
j3_t2 = ordem_time2[3]
j4_t2 = ordem_time2[4]
	
primeiro_jog_esq = j1_t1
primeiro_jog_dir = j1_t2

lista_opcoes = {"CARTOES", "PASSES", "CRUZAMENTOS", "CHUTES", "GOLS", "DESARMES", "FALTAS"}
opcao_atual = 4

estado_imagem_principal = 0
estado_imagem_secundaria = 0
estado_imagem_ajuda = 0

function esconde_imagem_principal()
	estado_imagem_principal = 0
	estado_imagem_secundaria = 0
	estado_imagem_ajuda = 0
	limpa_tela()
end

function esconde_imagem_secundaria()
	estado_imagem_secundaria = 0
	limpa_tela()
	mostra_imagem_principal(0)
	if (estado_imagem_ajuda == 1) then
		estado_imagem_ajuda = 0
		mostra_ajuda()
	end
	canvas:flush()
end

function mostra_imagem_principal(botao)
	limpa_tela()
	if (botao == 1) then
		if (estado_imagem_principal == 1) then
			esconde_imagem_principal()
			return
		else
			estado_imagem_principal = 1
		end
	end

	local imagem_p = "media/Interface_Principal.png"
    local img_p = canvas:new(imagem_p)
	canvas:compose(0+offset_x, 0+offset_y, img_p)
	
	local imagem_t1 = "media/time1/brasao2.png"
    local img_t1 = canvas:new(imagem_t1)
	canvas:compose(140+offset_x, 350+offset_y, img_t1)
	
	local imagem_t2 = "media/time2/brasao2.png"
    local img_t2 = canvas:new(imagem_t2)
	canvas:compose(580+offset_x, 350+offset_y, img_t2)
	
	mostra_total_opcao()
	mostra_opcoes()
	mostra_nomes_times()
end

function mostra_nomes_times()
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 15)
    canvas:drawText(250+offset_x, 375+offset_y, "Figueirense")
    canvas:drawText(472+offset_x, 375+offset_y, "America-RN")
end

function mostra_imagem_fundo()
	local imagem_c = "media/campo.jpg"
    local img_c = canvas:new(imagem_c)
	canvas:compose(0, 0, img_c)
end
	
function mostra_imagem_secundaria(botao)
	if (botao == 1) then
		if (estado_imagem_principal == 0) then
			return
		end
		if (estado_imagem_secundaria == 1) then
			esconde_imagem_secundaria()
			return
		else
			estado_imagem_secundaria = 1
		end
	end

	local imagem_s = "media/Interface_Secundaria3.png"
    local img_s = canvas:new(imagem_s)
	canvas:compose(0+offset_x, 0+offset_y, img_s)
	
	mostra_jogadores_esquerda()
	mostra_jogadores_direita()
end	

function mostra_jogadores_esquerda()
	mostra_jogador_esquerda_1(j1_t1)
	mostra_jogador_esquerda_2(j2_t1)
	mostra_jogador_esquerda_3(j3_t1)
	mostra_jogador_esquerda_4(j4_t1)
	mostra_info_jogador_esquerda(j1_t1)
end

function mostra_jogadores_direita()
	mostra_jogador_direita_1(j1_t2)
	mostra_jogador_direita_2(j2_t2)
	mostra_jogador_direita_3(j3_t2)
	mostra_jogador_direita_4(j4_t2)
	mostra_info_jogador_direita(j1_t2)
end

function get_opcao_jogador_tabela()
	local op = lista_opcoes[opcao_atual]
	if op == "CRUZAMENTOS" then
		return "CRUZAM."
	end
	if op == "CARTOES" then
		return "CARTÕES"
	end
	return op
end

function mostra_info_jogador_direita(num)
	local jogador = get_jogador_by_numero("2",num)
	local op = lista_opcoes[opcao_atual]
	print(op)	
	if (op == "DESARMES") then
		return
	end

	if (op == "FALTAS") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(670+offset_x, 316+offset_y, "Cometidas")
		canvas:drawText(753+offset_x, 316+offset_y, jogador.falta_c)
		canvas:drawText(670+offset_x, 336+offset_y, "Recebidas")
		canvas:drawText(753+offset_x, 336+offset_y, jogador.falta_r)
	end
	if (op == "CARTOES") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(670+offset_x, 316+offset_y, "Amarelo")
		canvas:drawText(753+offset_x, 316+offset_y, jogador.cartao_a)
		canvas:drawText(670+offset_x, 336+offset_y, "Vermelho")
		canvas:drawText(753+offset_x, 336+offset_y, jogador.cartao_v)
	end
	if (op == "CHUTES") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(670+offset_x, 316+offset_y, "Certos")
		canvas:drawText(753+offset_x, 316+offset_y, jogador.chutes_c)
		canvas:drawText(670+offset_x, 336+offset_y, "Errados")
		canvas:drawText(753+offset_x, 336+offset_y, jogador.chutes_e)
	end
	if (op == "PASSES") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(670+offset_x, 316+offset_y, "Certos")
		canvas:drawText(753+offset_x, 316+offset_y, jogador.passe_c)
		canvas:drawText(670+offset_x, 336+offset_y, "Errados")
		canvas:drawText(753+offset_x, 336+offset_y, jogador.passe_e)
	end
	
	if (op == "CRUZAMENTOS") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(670+offset_x, 316+offset_y, "Certos")
		canvas:drawText(753+offset_x, 316+offset_y, jogador.cruzamento_c)
		canvas:drawText(670+offset_x, 336+offset_y, "Errados")
		canvas:drawText(753+offset_x, 336+offset_y, jogador.cruzamento_e)
	end

	if (op == "GOLS") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(670+offset_x, 316+offset_y, "Pro")
		canvas:drawText(753+offset_x, 316+offset_y, jogador.gol_p)
		canvas:drawText(670+offset_x, 336+offset_y, "Contra")
		canvas:drawText(753+offset_x, 336+offset_y, jogador.gol_c)
	end
end

function mostra_info_jogador_esquerda(num)
	local jogador = get_jogador_by_numero("1",num)
	local op = lista_opcoes[opcao_atual]
	print(op)	
	if (op == "DESARMES") then
		return
	end

	if (op == "FALTAS") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(40+offset_x, 316+offset_y, "Cometidas")
		canvas:drawText(120+offset_x, 316+offset_y, jogador.falta_c)
		canvas:drawText(40+offset_x, 336+offset_y, "Recebidas")
		canvas:drawText(120+offset_x, 336+offset_y, jogador.falta_r)
	end
	if (op == "CARTOES") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(40+offset_x, 316+offset_y, "Amarelo")
		canvas:drawText(120+offset_x, 316+offset_y, jogador.cartao_a)
		canvas:drawText(40+offset_x, 336+offset_y, "Vermelho")
		canvas:drawText(120+offset_x, 336+offset_y, jogador.cartao_v)
	end
	if (op == "CHUTES") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(40+offset_x, 316+offset_y, "Certos")
		canvas:drawText(120+offset_x, 316+offset_y, jogador.chutes_c)
		canvas:drawText(40+offset_x, 336+offset_y, "Errados")
		canvas:drawText(120+offset_x, 336+offset_y, jogador.chutes_e)
	end
	if (op == "PASSES") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(40+offset_x, 316+offset_y, "Certos")
		canvas:drawText(120+offset_x, 316+offset_y, jogador.passe_c)
		canvas:drawText(40+offset_x, 336+offset_y, "Errados")
		canvas:drawText(120+offset_x, 336+offset_y, jogador.passe_e)
	end
	if (op == "CRUZAMENTOS") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(40+offset_x, 316+offset_y, "Certos")
		canvas:drawText(120+offset_x, 316+offset_y, jogador.cruzamento_c)
		canvas:drawText(40+offset_x, 336+offset_y, "Errados")
		canvas:drawText(120+offset_x, 336+offset_y, jogador.cruzamento_e)
	end

	if (op == "GOLS") then
		canvas:attrColor("white")
		canvas:attrFont("Tiresias", 12)
		canvas:drawText(40+offset_x, 316+offset_y, "Pro")
		canvas:drawText(120+offset_x, 316+offset_y, jogador.gol_p)
		canvas:drawText(40+offset_x, 336+offset_y, "Contra")
		canvas:drawText(120+offset_x, 336+offset_y, jogador.gol_c)
	end

end

function mostra_jogador_direita_1(num)
	local jogador = get_jogador_by_numero("2",num)
	local imagem = "media/time2/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(673+offset_x, 60+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(700+offset_x, 91+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(673+offset_x, 91+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(708+offset_x, 70+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(724+offset_x, 75+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_direita_2(num)
	local jogador = get_jogador_by_numero("2",num)
	local imagem = "media/time2/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(673+offset_x, 115+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(700+offset_x, 146+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(673+offset_x, 146+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(708+offset_x, 125+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(724+offset_x, 130+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_direita_3(num)
	local jogador = get_jogador_by_numero("2",num)
	local imagem = "media/time2/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(673+offset_x, 168+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(700+offset_x, 200+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(673+offset_x, 200+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(708+offset_x, 180+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(724+offset_x, 186+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_direita_4(num)
	local jogador = get_jogador_by_numero("2",num)
	local imagem = "media/time2/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(673+offset_x, 223+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(700+offset_x, 254+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(673+offset_x, 254+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(708+offset_x, 234+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(724+offset_x, 240+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_esquerda_1(num)
	local jogador = get_jogador_by_numero("1",num)
	local imagem = "media/time1/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(45+offset_x, 60+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(70+offset_x, 91+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(44+offset_x, 91+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(81+offset_x, 70+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(96+offset_x, 77+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_esquerda_2(num)
	local jogador = get_jogador_by_numero("1",num)
	local imagem = "media/time1/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(45+offset_x, 115+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(70+offset_x, 146+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(44+offset_x, 146+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(81+offset_x, 125+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(96+offset_x, 131+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_esquerda_3(num)
	local jogador = get_jogador_by_numero("1",num)
	local imagem = "media/time1/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(45+offset_x, 168+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(70+offset_x, 200+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(44+offset_x, 200+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(81+offset_x, 180+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(96+offset_x, 186+offset_y, get_opcao_jogador_tabela())
end

function mostra_jogador_esquerda_4(num)
	local jogador = get_jogador_by_numero("1",num)
	local imagem = "media/time1/"..jogador.nome..".jpg"
    local img = canvas:new(imagem)
    canvas:compose(45+offset_x, 224+offset_y, img)
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(70+offset_x, 254+offset_y, jogador.nome)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(44+offset_x, 254+offset_y, jogador.numero)
    canvas:attrFont("Tiresias", 14)
    canvas:drawText(81+offset_x, 234+offset_y, jogador[string.lower(lista_opcoes[opcao_atual])])
    canvas:attrFont("Tiresias", 8)
    canvas:drawText(96+offset_x, 240+offset_y, get_opcao_jogador_tabela())
end

function limpa_tela2()
    canvas:attrColor(0,0,0,0)
	canvas:clear()
	mostra_imagem_fundo()
	canvas:flush()
end

function limpa_tela()
	local DX, DY = canvas:attrSize()         -- dimensoes da tela
    canvas:attrColor(0,0,0,0)
    canvas:drawRect('fill',0,0,DX,DY)
	mostra_imagem_fundo()
	--canvas:flush()
end

function rotaciona_jogadores_direita_cima()
	if primeiro_jog_dir == ordem_time2[1] then
		primeiro_jog_dir = ordem_time2[#ordem_time2]
		j1_t2 = ordem_time2[#ordem_time2]
		j2_t2 = ordem_time2[1]
		j3_t2 = ordem_time2[2]
		j4_t2 = ordem_time2[3]
	elseif primeiro_jog_dir == ordem_time2[2] then
		primeiro_jog_dir = ordem_time2[1]
		j1_t2 = ordem_time2[1]
		j2_t2 = ordem_time2[2]
		j3_t2 = ordem_time2[3]
		j4_t2 = ordem_time2[4]
	elseif primeiro_jog_dir == ordem_time2[3] then
		primeiro_jog_dir = ordem_time2[2]
		j1_t2 = ordem_time2[2]
		j2_t2 = ordem_time2[3]
		j3_t2 = ordem_time2[4]
		j4_t2 = ordem_time2[5]
	elseif primeiro_jog_dir == ordem_time2[4] then
		primeiro_jog_dir = ordem_time2[3]
		j1_t2 = ordem_time2[3]
		j2_t2 = ordem_time2[4]
		j3_t2 = ordem_time2[5]
		j4_t2 = ordem_time2[6]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2] then
		primeiro_jog_dir = ordem_time2[#ordem_time2-1]
		j1_t2 = ordem_time2[#ordem_time2-1]
		j2_t2 = ordem_time2[#ordem_time2]
		j3_t2 = ordem_time2[1]
		j4_t2 = ordem_time2[2]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2-1] then
		primeiro_jog_dir = ordem_time2[#ordem_time2-2]
		j1_t2 = ordem_time2[#ordem_time2-2]
		j2_t2 = ordem_time2[#ordem_time2-1]
		j3_t2 = ordem_time2[#ordem_time2]
		j4_t2 = ordem_time2[1]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2-2] then
		primeiro_jog_dir = ordem_time2[#ordem_time2-3]
		j1_t2 = ordem_time2[#ordem_time2-3]
		j2_t2 = ordem_time2[#ordem_time2-2]
		j3_t2 = ordem_time2[#ordem_time2-1]
		j4_t2 = ordem_time2[#ordem_time2]
	else
		pos = find(ordem_time2,primeiro_jog_dir)
		primeiro_jog_dir = ordem_time2[pos-1]
		j1_t2 = ordem_time2[pos-1]
		j2_t2 = ordem_time2[pos]
		j3_t2 = ordem_time2[pos+1]
		j4_t2 = ordem_time2[pos+2]
	end
end

function rotaciona_jogadores_esquerda_cima()
	if primeiro_jog_esq == ordem_time1[1] then
		primeiro_jog_esq = ordem_time1[#ordem_time1]
		j1_t1 = ordem_time1[#ordem_time1]
		j2_t1 = ordem_time1[1]
		j3_t1 = ordem_time1[2]
		j4_t1 = ordem_time1[3]
	elseif primeiro_jog_esq == ordem_time1[2] then
		primeiro_jog_esq = ordem_time1[1]
		j1_t1 = ordem_time1[1]
		j2_t1 = ordem_time1[2]
		j3_t1 = ordem_time1[3]
		j4_t1 = ordem_time1[4]
	elseif primeiro_jog_esq == ordem_time1[3] then
		primeiro_jog_esq = ordem_time1[2]
		j1_t1 = ordem_time1[2]
		j2_t1 = ordem_time1[3]
		j3_t1 = ordem_time1[4]
		j4_t1 = ordem_time1[5]
	elseif primeiro_jog_esq == ordem_time1[4] then
		primeiro_jog_esq = ordem_time1[3]
		j1_t1 = ordem_time1[3]
		j2_t1 = ordem_time1[4]
		j3_t1 = ordem_time1[5]
		j4_t1 = ordem_time1[6]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1] then
		primeiro_jog_esq = ordem_time1[#ordem_time1-1]
		j1_t1 = ordem_time1[#ordem_time1-1]
		j2_t1 = ordem_time1[#ordem_time1]
		j3_t1 = ordem_time1[1]
		j4_t1 = ordem_time1[2]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1-1] then
		primeiro_jog_esq = ordem_time1[#ordem_time1-2]
		j1_t1 = ordem_time1[#ordem_time1-2]
		j2_t1 = ordem_time1[#ordem_time1-1]
		j3_t1 = ordem_time1[#ordem_time1]
		j4_t1 = ordem_time1[1]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1-2] then
		primeiro_jog_esq = ordem_time1[#ordem_time1-3]
		j1_t1 = ordem_time1[#ordem_time1-3]
		j2_t1 = ordem_time1[#ordem_time1-2]
		j3_t1 = ordem_time1[#ordem_time1-1]
		j4_t1 = ordem_time1[#ordem_time1]
	else
		pos = find(ordem_time1,primeiro_jog_esq)
		primeiro_jog_esq = ordem_time1[pos-1]
		j1_t1 = ordem_time1[pos-1]
		j2_t1 = ordem_time1[pos]
		j3_t1 = ordem_time1[pos+1]
		j4_t1 = ordem_time1[pos+2]
	end
end

function rotaciona_jogadores_cima()
	
	rotaciona_jogadores_esquerda_cima()
	rotaciona_jogadores_direita_cima()
	
	if (estado_imagem_principal == 1) then
		mostra_imagem_principal(0)
		if (estado_imagem_secundaria == 1) then
			mostra_imagem_secundaria(0)
		end
		canvas:flush()
	end	
end

function rotaciona_jogadores_esquerda_baixo()
	if primeiro_jog_esq == ordem_time1[1] then
		primeiro_jog_esq = ordem_time1[2]
		j1_t1 = ordem_time1[2]
		j2_t1 = ordem_time1[3]
		j3_t1 = ordem_time1[4]
		j4_t1 = ordem_time1[5]
	elseif primeiro_jog_esq == ordem_time1[2] then
		primeiro_jog_esq = ordem_time1[3]
		j1_t1 = ordem_time1[3]
		j2_t1 = ordem_time1[4]
		j3_t1 = ordem_time1[5]
		j4_t1 = ordem_time1[6]
	elseif primeiro_jog_esq == ordem_time1[3] then
		primeiro_jog_esq = ordem_time1[4]
		j1_t1 = ordem_time1[4]
		j2_t1 = ordem_time1[5]
		j3_t1 = ordem_time1[6]
		j4_t1 = ordem_time1[7]
	elseif primeiro_jog_esq == ordem_time1[4] then
		primeiro_jog_esq = ordem_time1[5]
		j1_t1 = ordem_time1[5]
		j2_t1 = ordem_time1[6]
		j3_t1 = ordem_time1[7]
		j4_t1 = ordem_time1[8]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1] then
		primeiro_jog_esq = ordem_time1[1]
		j1_t1 = ordem_time1[1]
		j2_t1 = ordem_time1[2]
		j3_t1 = ordem_time1[3]
		j4_t1 = ordem_time1[4]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1-1] then
		primeiro_jog_esq = ordem_time1[#ordem_time1]
		j1_t1 = ordem_time1[#ordem_time1]
		j2_t1 = ordem_time1[1]
		j3_t1 = ordem_time1[2]
		j4_t1 = ordem_time1[3]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1-2] then
		primeiro_jog_esq = ordem_time1[#ordem_time1-1]
		j1_t1 = ordem_time1[#ordem_time1-1]
		j2_t1 = ordem_time1[#ordem_time1]
		j3_t1 = ordem_time1[1]
		j4_t1 = ordem_time1[2]
	elseif primeiro_jog_esq == ordem_time1[#ordem_time1-3] then
		primeiro_jog_esq = ordem_time1[#ordem_time1-2]
		j1_t1 = ordem_time1[#ordem_time1-2]
		j2_t1 = ordem_time1[#ordem_time1-1]
		j3_t1 = ordem_time1[#ordem_time1]
		j4_t1 = ordem_time1[1]
	else
		pos = find(ordem_time1,primeiro_jog_esq)
		primeiro_jog_esq = ordem_time1[pos+1]
		j1_t1 = ordem_time1[pos+1]
		j2_t1 = ordem_time1[pos+2]
		j3_t1 = ordem_time1[pos+3]
		j4_t1 = ordem_time1[pos+4]
	end
end

function rotaciona_jogadores_direita_baixo()
	if primeiro_jog_dir == ordem_time2[1] then
		primeiro_jog_dir = ordem_time2[2]
		j1_t2 = ordem_time2[2]
		j2_t2 = ordem_time2[3]
		j3_t2 = ordem_time2[4]
		j4_t2 = ordem_time2[5]
	elseif primeiro_jog_dir == ordem_time2[2] then
		primeiro_jog_dir = ordem_time2[3]
		j1_t2 = ordem_time2[3]
		j2_t2 = ordem_time2[4]
		j3_t2 = ordem_time2[5]
		j4_t2 = ordem_time2[6]
	elseif primeiro_jog_dir == ordem_time2[3] then
		primeiro_jog_dir = ordem_time2[4]
		j1_t2 = ordem_time2[4]
		j2_t2 = ordem_time2[5]
		j3_t2 = ordem_time2[6]
		j4_t2 = ordem_time2[7]
	elseif primeiro_jog_dir == ordem_time2[4] then
		primeiro_jog_dir = ordem_time2[5]
		j1_t2 = ordem_time2[5]
		j2_t2 = ordem_time2[6]
		j3_t2 = ordem_time2[7]
		j4_t2 = ordem_time2[8]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2] then
		primeiro_jog_dir = ordem_time2[1]
		j1_t2 = ordem_time2[1]
		j2_t2 = ordem_time2[2]
		j3_t2 = ordem_time2[3]
		j4_t2 = ordem_time2[4]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2-1] then
		primeiro_jog_dir = ordem_time2[#ordem_time2]
		j1_t2 = ordem_time2[#ordem_time2]
		j2_t2 = ordem_time2[1]
		j3_t2 = ordem_time2[2]
		j4_t2 = ordem_time2[3]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2-2] then
		primeiro_jog_dir = ordem_time2[#ordem_time2-1]
		j1_t2 = ordem_time2[#ordem_time2-1]
		j2_t2 = ordem_time2[#ordem_time2]
		j3_t2 = ordem_time2[1]
		j4_t2 = ordem_time2[2]
	elseif primeiro_jog_dir == ordem_time2[#ordem_time2-3] then
		primeiro_jog_dir = ordem_time2[#ordem_time2-2]
		j1_t2 = ordem_time2[#ordem_time2-2]
		j2_t2 = ordem_time2[#ordem_time2-1]
		j3_t2 = ordem_time2[#ordem_time2]
		j4_t2 = ordem_time2[1]
	else
		pos = find(ordem_time2,primeiro_jog_dir)
		primeiro_jog_dir = ordem_time2[pos+1]
		j1_t2 = ordem_time2[pos+1]
		j2_t2 = ordem_time2[pos+2]
		j3_t2 = ordem_time2[pos+3]
		j4_t2 = ordem_time2[pos+4]
	end
end

function mostra_total_opcao()
	funcao = Funcoes[string.lower(lista_opcoes[opcao_atual])]
    canvas:attrColor("black")
    canvas:attrFont("Tiresias", 15)
    canvas:drawText(372+offset_x, 375+offset_y, funcao("1"))
    canvas:drawText(412+offset_x, 375+offset_y, funcao("2"))
end

function rotaciona_jogadores_baixo()
	
	rotaciona_jogadores_esquerda_baixo()
	rotaciona_jogadores_direita_baixo()
	
	if (estado_imagem_principal == 1) then
		mostra_imagem_principal(0)
		if (estado_imagem_secundaria == 1) then
			mostra_imagem_secundaria(0)
		end
		canvas:flush()
	end	
end

function rotaciona_opcoes_esquerda()
	
	if opcao_atual == 1 then
		opcao_atual = #lista_opcoes
	else
		opcao_atual = opcao_atual - 1
	end
	
	if (estado_imagem_principal == 1) then
		mostra_imagem_principal(0)
		if (estado_imagem_secundaria == 1) then
			mostra_imagem_secundaria(0)
		end
		canvas:flush()
	end	
end

function rotaciona_opcoes_direita()
	
	if opcao_atual == #lista_opcoes then
		opcao_atual = 1
	else
		opcao_atual = opcao_atual + 1
	end
	
	if (estado_imagem_principal == 1) then
		mostra_imagem_principal(0)
		if (estado_imagem_secundaria == 1) then
			mostra_imagem_secundaria(0)
		end
		canvas:flush()
	end	
end

function mostra_opcoes()
	if opcao_atual == 1 then
		op_antes = " GOLS   DESARMES   FALTAS"
		op_atual = "  CARTÕES"
		op_depois = " PASSES  CRUZAM.  CHUTES"
	elseif opcao_atual == 2  then
		op_antes = "DESARMES FALTAS CARTÕES"
		op_atual = "    PASSES"
		op_depois = " CRUZAM.   CHUTES   GOLS"
	elseif opcao_atual == 3  then
		op_antes = " FALTAS   CARTÕES   PASSES"
		op_atual = "  CRUZAM."
		op_depois = " CHUTES  GOLS  DESARMES"
	elseif opcao_atual == 4  then
		op_antes = "CARTÕES  PASSES  CRUZAM."
		op_atual = "   CHUTES"
		op_depois = "GOLS   DESARMES   FALTAS"
	elseif opcao_atual == 5  then
		op_antes = "PASSES  CRUZAM.  CHUTES"
		op_atual = "    GOLS"
		op_depois = "DESARMES  FALTAS  CARTÕES"
	elseif opcao_atual == 6  then
		op_antes = " CRUZAM.   CHUTES   GOLS"
		op_atual = " DESARMES"
		op_depois = "FALTAS   CARTÕES   PASSES"
	elseif opcao_atual == 7  then
		op_antes = " CHUTES  GOLS  DESARMES"
		op_atual = "    FALTAS"
		op_depois = "CARTÕES  PASSES  CRUZAM."
	end
    canvas:attrColor("yellow")
    canvas:attrFont("Tiresias", 12)
    canvas:drawText(370+offset_x, 355+offset_y, op_atual)
    canvas:attrColor("white")
    canvas:attrFont("Tiresias", 10)
    canvas:drawText(212+offset_x, 357+offset_y, op_antes)
    canvas:drawText(462+offset_x, 357+offset_y, op_depois)
end

function mostra_ajuda()
	local linha_1 = "Para navegação utilize os botões do controle remoto"
	local linha_2 = " * Botão OK apresenta mais detalhes dos jogadores"
	local linha_3 = " * Botão Voltar esconde os detalhes dos jogadores"
	local linha_4 = " * Setas para esquerda e direita alteram a categoria do scout"
	local linha_5 = " * Setas para cima e para baixo alteram os jogadores"
	
	if (estado_imagem_ajuda == 0) then
		canvas:attrFont("Tiresias", 14, "bold")
		canvas:attrColor("black")
		canvas:drawRect ("frame", 168+offset_x, 235+offset_y, 460, 100)
		canvas:drawText(172+offset_x, 235+offset_y, linha_1)
		canvas:drawText(170+offset_x, 260+offset_y, linha_2)
		canvas:drawText(170+offset_x, 275+offset_y, linha_3)
		canvas:drawText(170+offset_x, 290+offset_y, linha_4)
		canvas:drawText(170+offset_x, 305+offset_y, linha_5)
		canvas:flush()
		estado_imagem_ajuda = 1
	else
		if (estado_imagem_secundaria == 1) then
			limpa_tela()
			mostra_imagem_principal(0)
			mostra_imagem_secundaria(0)
			canvas:flush()
		elseif (estado_imagem_principal == 1) then
			limpa_tela()
			mostra_imagem_principal(0)
			canvas:flush()
		end
		estado_imagem_ajuda = 0
	end

end

function handler(evt)
	print("##############################################")
  	print("Evento disparado: " .. evt.class .. " " .. evt.type)
  	print("##############################################")
  	if (evt.class == "key") then
    	print(evt.key)
      	if ((evt.key == "RED") and (evt.type == "press")) then
			mostra_imagem_principal(1)
			canvas:flush()
      	end
      	if ((evt.key == "GREEN") and (evt.type == "press")) then
			mostra_imagem_secundaria(1)
			canvas:flush()
      	end
      	if ((evt.key == "BLUE") and (evt.type == "press")) then
          	mostra_ajuda()
      	end
      	if ((evt.key == "ENTER") and (evt.type == "press")) then
          	limpa_tela()
      	end
      	if ((evt.key == "CURSOR_UP") and (evt.type == "press")) then
			rotaciona_jogadores_cima()
      	end
      	if ((evt.key == "CURSOR_DOWN") and (evt.type == "press")) then
			rotaciona_jogadores_baixo()
      	end
      	if ((evt.key == "CURSOR_LEFT") and (evt.type == "press")) then
			rotaciona_opcoes_esquerda()
      	end
      	if ((evt.key == "CURSOR_RIGHT") and (evt.type == "press")) then
			rotaciona_opcoes_direita()
      	end
  	end

end

mostra_imagem_fundo()
event.register(handler) 
